home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
038a
/
vegx20.zip
/
EGXTEST.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-11-15
|
1KB
|
56 lines
' EGXTEST.bas
' You must load QB with the appropriate VEGX quicklibrary for your
' version of QB.
' to do so type "QB /Lvegxlibraryname" at the DOS prompt.
' "vegxlibraryname" is VEGX40.QLB for QB 4.0 or BASIC 6.0;
' VEGX45.QLB for QB 4.5, and
' VEGX70f.QLB for BASIC 7.0
DEFINT A-Z
DECLARE SUB EGXLoad (fil$, palflag)
DECLARE SUB EGXSave (fil$)
SCREEN 9
LINE (0, 0)-(639, 349), 1, B
k = 1
FOR x = 50 TO 600 STEP 38
CIRCLE (x, 200), 40, k
PAINT (x, 200), k
k = k + 1
NEXT x
LOCATE 10, 10
COLOR 12
PRINT "We will now save this screen to EGXTEST!.EGX and call it back up."
COLOR 14
LOCATE , 10
PRINT "Hit any key..."
DO: LOOP WHILE INKEY$ = ""
fil$ = "EGXTEST!"
CALL EGXSave(fil$)
CLS
LOCATE 10
COLOR 9
PRINT "We are ready to load it again. Choose a load option..."
COLOR 6
PRINT " PALFLAG OUT IN"
PRINT " 0 no blank bank load"
PRINT " 1 blank to 0 instant on"
COLOR 14
INPUT " Enter PaletteFlag number (0 or 1)... ", palflag
CALL EGXLoad(fil$, palflag)
DO: LOOP WHILE INKEY$ = ""
END